home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / t_os / vdtwn / tvf / asmhd6 / comdhd6 / j_add.hd6 < prev    next >
Text File  |  1993-07-08  |  1KB  |  102 lines
  1. ds_name        db    '\KOMEI\実物\TVF_PRG\J_ADD',0
  2.  
  3. paint_wd:
  4.      SET_P dt1
  5.      SET_P dt2
  6.      SET_P dt3
  7. re_paint:
  8.      WD_CLS 0
  9.      BOX boxdt,1
  10.      MOZI mozidt
  11. be_called:
  12.      ret
  13.  
  14. mouse_in:
  15.       cmp ch,1
  16.      je mouseck
  17.       ret
  18.  
  19. mouseck:
  20.      MOU boxdt,1
  21.  
  22.      cmp bx,1                  ;bx=1 find
  23.      je short mck1             ;ax = no
  24.      ret
  25. mck1:
  26.      cmp ax,1
  27.      je find1    
  28.      ret
  29. find1:
  30.      mov ax,1
  31.      KAKU 306,ax
  32.      CALL_P dt1
  33.      CALL_P dt2
  34.      CALL_P dt3
  35.  
  36.      GAMEN 1632
  37.      
  38.      mov ah,25
  39.      mov al,2
  40.      mov bx,0
  41.      call komei
  42.  
  43.      mov ah,27
  44.      call komei
  45.  
  46. ;     call re_paint
  47.  
  48. ;     mov ah,0eh
  49. ;     mov al,1
  50. ;     call MOUSE
  51.  
  52.      ret
  53. look_me:
  54.      call sub_esi
  55.      dd 0,0
  56.      dw     1,0,17*8,26,382,90+30*3,15,5,0,0
  57.  
  58.  
  59.  
  60. boxdt:
  61.     call sub_edi
  62.         dw    1,17*8-4,24,2,2,0,20,12,7,0
  63.  
  64.  
  65. ; [count][sz_x][sz_y][off_x][off_y][+x][+y][f_col][b_col][s_no]
  66.  
  67. mozidt:
  68.     call sub_edi
  69.            dw    0        ;screen_no
  70.            dw    1      ; mozi_color
  71.            dw    2      ; 書き出し位置  x
  72.            dw    2      ;          y
  73.            dw    10      ; next offset x
  74.            dw    0      ; next offset y
  75.     
  76.                dw   1      ; gyo suu
  77.                    db    '上の色と加工１ ',0
  78.                 dw 0,0
  79.  
  80.  
  81. dt1:
  82.      call sub_edi
  83.      dw     ?
  84.      db 'F_COL',0
  85. dt3:
  86.      call sub_edi
  87.      dw     ?
  88.      db 'P_ADD',0
  89. dt2:
  90.      call sub_edi
  91.      dw     ?
  92.      db 'H_DG',0
  93.  
  94. p_set:
  95.      M_P_SET
  96. p_call:
  97.  
  98.          M_P_CALL
  99.  
  100.  
  101.  
  102.